home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / perl5a1.lha / perl5alpha1 / do / fttext < prev    next >
Encoding:
Text File  |  1992-08-15  |  2.1 KB  |  95 lines
  1. STR *
  2. do_fttext(arg,TARG)
  3. register ARG *arg;
  4. STR *TARG;
  5. {
  6.     int i;
  7.     int len;
  8.     int odd = 0;
  9.     STDCHAR tbuf[512];
  10.     register STDCHAR *s;
  11.     register STIO *stio;
  12.  
  13.     if (arg[1].arg_type & A_DONT) {
  14.     if (arg[1].arg_ptr.arg_stab == defstab) {
  15.         if (statstab)
  16.         stio = stab_io(statstab);
  17.         else {
  18.         TARG = statname;
  19.         goto really_filename;
  20.         }
  21.     }
  22.     else {
  23.         statstab = arg[1].arg_ptr.arg_stab;
  24.         str_set(statname,"");
  25.         stio = stab_io(statstab);
  26.     }
  27.     if (stio && stio->ifp) {
  28. #if defined(STDSTDIO) || defined(atarist) /* this will work with atariST */
  29.         fstat(fileno(stio->ifp),&statcache);
  30.         if (S_ISDIR(statcache.st_mode))    /* handle NFS glitch */
  31.         return arg->arg_type == O_FTTEXT ? &str_no : &str_yes;
  32.         if (stio->ifp->_cnt <= 0) {
  33.         i = getc(stio->ifp);
  34.         if (i != EOF)
  35.             (void)ungetc(i,stio->ifp);
  36.         }
  37.         if (stio->ifp->_cnt <= 0)    /* null file is anything */
  38.         return &str_yes;
  39.         len = stio->ifp->_cnt + (stio->ifp->_ptr - stio->ifp->_base);
  40.         s = stio->ifp->_base;
  41. #else
  42.         fatal("-T and -B not implemented on filehandles");
  43. #endif
  44.     }
  45.     else {
  46.         if (dowarn)
  47.         warn("Test on unopened file <%s>",
  48.           stab_ename(arg[1].arg_ptr.arg_stab));
  49.         errno = EBADF;
  50.         return &str_undef;
  51.     }
  52.     }
  53.     else {
  54.     statstab = Nullstab;
  55.     str_set(statname,str_get(TARG));
  56.       really_filename:
  57.     i = open(str_get(TARG),0);
  58.     if (i < 0) {
  59.         if (dowarn && index(str_get(TARG), '\n'))
  60.         warn(warn_nl, "open");
  61.         return &str_undef;
  62.     }
  63.     fstat(i,&statcache);
  64.     len = read(i,tbuf,512);
  65.     (void)close(i);
  66.     if (len <= 0) {
  67.         if (S_ISDIR(statcache.st_mode) && arg->arg_type == O_FTTEXT)
  68.         return &str_no;        /* special case NFS directories */
  69.         return &str_yes;        /* null file is anything */
  70.     }
  71.     s = tbuf;
  72.     }
  73.  
  74.     /* now scan s to look for textiness */
  75.  
  76.     for (i = 0; i < len; i++,s++) {
  77.     if (!*s) {            /* null never allowed in text */
  78.         odd += len;
  79.         break;
  80.     }
  81.     else if (*s & 128)
  82.         odd++;
  83.     else if (*s < 32 &&
  84.       *s != '\n' && *s != '\r' && *s != '\b' &&
  85.       *s != '\t' && *s != '\f' && *s != 27)
  86.         odd++;
  87.     }
  88.  
  89.     if ((odd * 10 > len) == (arg->arg_type == O_FTTEXT)) /* allow 10% odd */
  90.     return &str_no;
  91.     else
  92.     return &str_yes;
  93. }
  94.  
  95.